home *** CD-ROM | disk | FTP | other *** search
/ Kyoko 8203 / Kyoko 8203.iso / mac / comic.dxr / 00019_èâä²âª.ls < prev    next >
Encoding:
Text File  |  2003-02-28  |  260 b   |  16 lines
  1. global cdvoume
  2.  
  3. on prepareFrame
  4.   set the volume of sound 1 to cdvoume * 19
  5.   i = 15
  6.   repeat while i <= 27
  7.     sprite(i).visible = 1
  8.     i = 1 + i
  9.   end repeat
  10.   i = 15 + cdvoume
  11.   repeat while i <= 27
  12.     sprite(i).visible = 0
  13.     i = 1 + i
  14.   end repeat
  15. end
  16.